home *** CD-ROM | disk | FTP | other *** search
/ Stuart Little 2 Press Kit / Stuart Little 2 Press Kit.iso / pc / SL2.dxr / New Save Image Cast_82_SaveFile Path.ls < prev    next >
Encoding:
Text File  |  2002-06-24  |  1006 b   |  39 lines
  1. on windowsSaveDialog
  2.   global gSysPath, gSavePath, gfd, gWinSavePath
  3.   gSavePath = FileSaveAsDialog(gWinSavePath, "Stuart Little 2 Images", "Save Images to what Location ?", 0)
  4.   if gSavePath = EMPTY then
  5.     puppetTransition(49, 2)
  6.     go(244)
  7.   else
  8.     the itemDelimiter = "\"
  9.     z = the number of items in gSavePath
  10.     put "Stuart Little 2 Images" into item z of gSavePath
  11.     the itemDelimiter = ","
  12.     save = the itemDelimiter
  13.   end if
  14. end
  15.  
  16. on macSAveDialog
  17.   global gSysPath, gSavePath, gfd, gmacSavePath
  18.   gSavePath = FileSaveAsDialog(gmacSavePath, "Stuart Little 2 Images", "Save Images to what Location ?")
  19.   if gSavePath = EMPTY then
  20.     puppetTransition(49, 2)
  21.     go(244)
  22.   else
  23.     the itemDelimiter = ":"
  24.     z = the number of items in gSavePath
  25.     put "Stuart Little 2 Images" into item z of gSavePath
  26.     the itemDelimiter = ","
  27.     save = the itemDelimiter
  28.   end if
  29. end
  30.  
  31. on exitFrame me
  32.   global gfd
  33.   if gfd = "\" then
  34.     windowsSaveDialog()
  35.   else
  36.     macSAveDialog()
  37.   end if
  38. end
  39.